(help-argument-name): Default to bold; don't inherit from

font-lock-variable-name-face.
(help-do-arg-highlight): Grok also ARGth occurrences in the docstring.

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index d4c0997bdf72eb3bf2e808828075f283e91b5d91..a94c0ed9dea459956ad895c619416a6814d7cd13 100644 (file)
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -237,14 +237,14 @@ KIND should be `var' for a variable or `subr' for a subroutine."
            (concat "src/" file)
          file)))))
 
-(defface help-argument-name '((t (:inherit font-lock-variable-name-face)))
+(defface help-argument-name '((t (:weight bold)))
   "Face to highlight function arguments in docstrings.")
 
 (defun help-do-arg-highlight (doc args)
   (while args
     (let ((arg (prog1 (car args) (setq args (cdr args)))))
       (setq doc (replace-regexp-in-string
-                 (concat "\\<\\(" arg "\\)\\(?:es\\|s\\)?\\>")
+                 (concat "\\<\\(" arg "\\)\\(?:es\\|s\\|th\\)?\\>")
                  (propertize arg 'face 'help-argument-name)
                  doc t t 1))))
   doc)